www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\Label\custom_Label\防刷新code\nd_stop_flood.asp

    <%'$start_ext_newDsoft 以下系统生成,勿删!
'$newDsoft_label_type$:asp_label$end_newDsoft_label_type$
'$newDsoft_label_name$:newdsoft_stop_flood$end_newDsoft_label_name$
'$newDsoft_label_sql$: $end_newDsoft_label_sql$
'$newDsoft_label_params$:$end_newDsoft_label_params$
'$newDsoft_label_fenye_num$: $end_newDsoft_label_fenye_num$
'$newDsoft_label_beizhu$:防止恶意刷新$end_newDsoft_label_beizhu$
'$newDsoft_is_sys_label$:0$end_newDsoft_is_sys_label$
'$newDsoft_other_params$: $end_newDsoft_other_params$
'$end_ext_newDsoft%>
<%
'-----------------------------------------------------防刷新
If Request.Cookies("newdsoft")("norefresh")<>"" Then

If DateDiff("s",Request.Cookies("newdsoft")("norefresh"),Now())<3 Then

If Request.ServerVariables("QUERY_STRING")="" Then


Response.Write("<meta http-equiv=""refresh"" content=""3;URL="&Request.ServerVariables("URL")&""">")
ppssppsssp1=Request.ServerVariables("URL")
Else


Response.Write("<meta http-equiv=""refresh"" content=""3;URL="&Request.ServerVariables("URL")&"?"&Request.ServerVariables("QUERY_STRING")&""">")
ppssppsssp1=Request.ServerVariables("URL")&"?"&Request.ServerVariables("QUERY_STRING")
End If

Response.Write("<font size=5>防止恶意刷新功能已启动,四秒后自动将进入页面，如果未自动跳转，请<a href='"&ppssppsssp1&"'><font size=5>点击这里</font></a>进入页面</font>")

Response.End

End IF
End if
Response.Cookies("newdsoft")("norefresh")=Now()
'---------------------------------------------end--------防刷新
%>